home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue52 / HTML / Code / AppServer / dpoEvent.dfm / dpoEvent.txt
Encoding:
Text File  |  1999-10-23  |  277 b   |  14 lines
  1. inherited Event: TEvent
  2.   inherited qryMain: TQuery
  3.     SQL.Strings = (
  4.       'SELECT * FROM Events WHERE EventNo = :EventNo')
  5.     ParamData = <
  6.       item
  7.         DataType = ftAutoInc
  8.         Name = 'EventNo'
  9.         ParamType = ptInput
  10.         Value = 0
  11.       end>
  12.   end
  13. end
  14.